home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / bin / corelist < prev    next >
Encoding:
Text File  |  2009-06-26  |  6.2 KB  |  266 lines
  1. #!/usr/bin/perl
  2.     eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
  3.     if $running_under_some_shell;
  4. #!/usr/bin/perl
  5.  
  6. =head1 NAME
  7.  
  8. corelist - a commandline frontend to Module::CoreList
  9.  
  10. =head1 DESCRIPTION
  11.  
  12. See L<Module::CoreList> for one.
  13.  
  14. =head1 SYNOPSIS
  15.  
  16.     corelist -v
  17.     corelist [-a] <ModuleName> | /<ModuleRegex>/ [<ModuleVersion>] ...
  18.     corelist [-v <PerlVersion>] [ <ModuleName> | /<ModuleRegex>/ ] ...
  19.  
  20. =head1 OPTIONS
  21.  
  22. =over
  23.  
  24. =item -a modulename
  25.  
  26. lists all versions of the given module (or the matching modules, in case you
  27. used a module regexp) in the perls Module::CoreList knows about.
  28.  
  29.     corelist -a utf8
  30.  
  31.     utf8 was first released with perl 5.006
  32.       5.006      undef
  33.       5.006001   undef
  34.       5.006002   undef
  35.       5.007003   1.00
  36.       5.008      1.00
  37.       5.008001   1.02
  38.       5.008002   1.02
  39.       5.008003   1.02
  40.       5.008004   1.03
  41.       5.008005   1.04
  42.       5.008006   1.04
  43.       5.008007   1.05
  44.       5.008008   1.06
  45.       5.009      1.02
  46.       5.009001   1.02
  47.       5.009002   1.04
  48.       5.009003   1.06
  49.  
  50. =item -? or -help
  51.  
  52. help! help! help! to see more help, try --man.
  53.  
  54. =item -man
  55.  
  56. all of the help
  57.  
  58. =item -v
  59.  
  60. lists all of the perl release versions we got the CoreList for.
  61.  
  62. If you pass a version argument (value of C<$]>, like C<5.00503> or C<5.008008>),
  63. you get a list of all the modules and their respective versions.
  64. (If you have the C<version> module, you can also use new-style version numbers,
  65. like C<5.8.8>.)
  66.  
  67. In module filtering context, it can be used as Perl version filter.
  68.  
  69. =back
  70.  
  71. As a special case, if you specify the module name C<Unicode>, you'll get
  72. the version number of the Unicode Character Database bundled with the
  73. requested perl versions.
  74.  
  75. =cut
  76.  
  77. use Module::CoreList;
  78. use Getopt::Long;
  79. use Pod::Usage;
  80. use strict;
  81. use warnings;
  82.  
  83. my %Opts;
  84.  
  85. GetOptions(\%Opts, qw[ help|?! man! v|version:f a! ] );
  86.  
  87. pod2usage(1) if $Opts{help};
  88. pod2usage(-verbose=>2) if $Opts{man};
  89.  
  90. if(exists $Opts{v} ){
  91.     if( !$Opts{v} ) {
  92.         print "\nModule::CoreList has info on the following perl versions:\n";
  93.         print "$_\n" for sort keys %Module::CoreList::version;
  94.         print "\n";
  95.         exit 0;
  96.     }
  97.  
  98.     $Opts{v} = numify_version( $Opts{v} );
  99.     if( !exists $Module::CoreList::version{$Opts{v}} ) {
  100.         print "\nModule::CoreList has no info on perl v$Opts{v}\n\n";
  101.         exit 1;
  102.     }
  103.  
  104.     if ( !@ARGV ) {
  105.     print "\nThe following modules were in perl v$Opts{v} CORE\n";
  106.     print "$_ ", $Module::CoreList::version{$Opts{v}}{$_} || " ","\n"
  107.     for sort keys %{$Module::CoreList::version{$Opts{v}}};
  108.     print "\n";
  109.     exit 0;
  110.     }
  111. }
  112.  
  113. if ( !@ARGV ) {
  114.     pod2usage(0);
  115. }
  116.  
  117. while (@ARGV) {
  118.     my ($mod, $ver);
  119.     if ($ARGV[0] =~ /=/) {
  120.         ($mod, $ver) = split /=/, shift @ARGV;
  121.     } else {
  122.         $mod = shift @ARGV;
  123.         $ver = (@ARGV && $ARGV[0] =~ /^\d/) ? shift @ARGV : "";
  124.     }
  125.  
  126.     if ($mod !~ m|^/(.*)/([imosx]*)$|) { # not a regex
  127.         module_version($mod,$ver);
  128.     } else {
  129.         my $re;
  130.         eval { $re = $2 ? qr/(?$2)($1)/ : qr/$1/; }; # trap exceptions while building regex
  131.         if ($@) {
  132.         # regex errors are usually like 'Quantifier follow nothing in regex; marked by ...'
  133.         # then we drop text after ';' to shorten message
  134.         my $errmsg = $@ =~ /(.*);/ ? $1 : $@;
  135.         warn "\n$mod  is a bad regex: $errmsg\n";
  136.         next;
  137.         }
  138.         my @mod = Module::CoreList->find_modules($re);
  139.         if (@mod) {
  140.         module_version($_, $ver) for @mod;
  141.         } else {
  142.         $ver |= '';
  143.         print "\n$mod $ver has no match in CORE (or so I think)\n";
  144.         }
  145.  
  146.     }
  147. }
  148.  
  149. exit();
  150.  
  151. sub module_version {
  152.     my($mod,$ver) = @_;
  153.  
  154.     if ( $Opts{v} ) {
  155.         return printf "  %-24s %-10s\n",
  156.             $mod,
  157.             $Module::CoreList::version{$Opts{v}}{$mod} || 'undef';
  158.     }
  159.  
  160.     my $ret = Module::CoreList->first_release(@_);
  161.     my $msg = $mod;
  162.     $msg .= " $ver" if $ver;
  163.  
  164.     if( defined $ret ) {
  165.         $msg .= " was ";
  166.         $msg .= "first " unless $ver;
  167.         $msg .= "released with perl $ret"
  168.     } else {
  169.         $msg .= " was not in CORE (or so I think)";
  170.     }
  171.  
  172.     print "\n",$msg,"\n";
  173.  
  174.     if(defined $ret and exists $Opts{a} and $Opts{a}){
  175.         for my $v(
  176.             sort keys %Module::CoreList::version ){
  177.  
  178.             printf "  %-10s %-10s\n",
  179.                 $v,
  180.                 $Module::CoreList::version{$v}{$mod}
  181.                     || 'undef'
  182.                     if exists $Module::CoreList::version{$v}{$mod};
  183.         }
  184.         print "\n";
  185.     }
  186. }
  187.  
  188. sub numify_version {
  189.     my $ver = shift;
  190.     if ( index( $ver, q{.}, index( $ver, q{.} ) ) >= 0 ) {
  191.     eval { require version };
  192.     if ($@) {
  193.         die "You need to install version.pm to use dotted version numbers\n";
  194.     }
  195.         $ver = version->new($ver)->numify;
  196.     }
  197.     return $ver;
  198. }
  199.  
  200. =head1 EXAMPLES
  201.  
  202.     $ corelist File::Spec
  203.  
  204.     File::Spec was first released with perl 5.005
  205.  
  206.     $ corelist File::Spec 0.83
  207.  
  208.     File::Spec 0.83 was released with perl 5.007003
  209.  
  210.     $ corelist File::Spec 0.89
  211.  
  212.     File::Spec 0.89 was not in CORE (or so I think)
  213.  
  214.     $ corelist File::Spec::Aliens
  215.  
  216.     File::Spec::Aliens  was not in CORE (or so I think)
  217.  
  218.     $ corelist /IPC::Open/
  219.  
  220.     IPC::Open2 was first released with perl 5
  221.  
  222.     IPC::Open3 was first released with perl 5
  223.  
  224.     $ corelist /MANIFEST/i
  225.  
  226.     ExtUtils::Manifest was first released with perl 5.001
  227.  
  228.     $ corelist /Template/
  229.  
  230.     /Template/  has no match in CORE (or so I think)
  231.  
  232.     $ corelist -v 5.8.8 B
  233.  
  234.     B                        1.09_01
  235.  
  236.     $ corelist -v 5.8.8 /^B::/
  237.  
  238.     B::Asmdata               1.01
  239.     B::Assembler             0.07
  240.     B::Bblock                1.02_01
  241.     B::Bytecode              1.01_01
  242.     B::C                     1.04_01
  243.     B::CC                    1.00_01
  244.     B::Concise               0.66
  245.     B::Debug                 1.02_01
  246.     B::Deparse               0.71
  247.     B::Disassembler          1.05
  248.     B::Lint                  1.03
  249.     B::O                     1.00
  250.     B::Showlex               1.02
  251.     B::Stackobj              1.00
  252.     B::Stash                 1.00
  253.     B::Terse                 1.03_01
  254.     B::Xref                  1.01
  255.  
  256. =head1 COPYRIGHT
  257.  
  258. Copyright (c) 2002-2007 by D.H. aka PodMaster
  259.  
  260. Currently maintained by the perl 5 porters E<lt>perl5-porters@perl.orgE<gt>.
  261.  
  262. This program is distributed under the same terms as perl itself.
  263. See http://perl.org/ or http://cpan.org/ for more info on that.
  264.  
  265. =cut
  266.